home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
CURSOR.ZIP
/
TESTCUR.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1995-04-09
|
379b
|
21 lines
Program TestCursor;
uses
Cursor,
DOS, CRT;
var
Instr : string;
begin
SetCursor(UlCursor);
Write('Normal Input:');
Readln(Instr);
SetCursor(NoCursor);
Write('Where is the Cursor?');
Readln(Instr);
SetCursor(OsCursor);
Write('OverStrike Cursor?');
Readln(Instr);
SetCursorScanLines($0E, $0A);
Write('HalfOverStrike Cursor?');
Readln(Instr);
end.